﻿Public Class CatchTask

    Private dsXml As New DataSet

    Private Sub ResizeControls()
        tvMenu.Width = SplitCatchTask.Panel1.Width
        tvMenu.Height = SplitCatchTask.Panel1.Height - 2
        dgvList.Width = SplitCatchTask.Panel2.Width
        dgvList.Height = SplitCatchTask.Panel2.Height - 2
    End Sub

    Private Sub CatchTask_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        DbManage.ExecProc("", dsXml, "")
    End Sub

    Private Sub SplitCatchTask_SplitterMoved(ByVal sender As System.Object, ByVal e As System.Windows.Forms.SplitterEventArgs) Handles SplitCatchTask.SplitterMoved
        ResizeControls()
    End Sub

End Class